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-- ImageDefs.mesa Modified by: Sandman, March 31, 1978 2:24 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledef s" , 
BcdDefs: FROM "bcddefs", 
ControlDefs: FROM "controldef s M , 
DiskDefs: FROM "diskdefs", 
Mopcodes: FROM "mopcodes", 
NovaOps: FROM "novaops", 
SDDefs: FROM "sddefs", 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" ; 

ImageDefs: DEFINITIONS SHARES DiskDefs ■ 
PRIVATE BEGIN 

FirstlmageDataPage: AltoDef s .PageNumber a 2; 
HeaderPages: CARDINAL » 1; 

Mapltem: TYPE = MACHINE DEPENDENT RECORD [ 
page: [0..255], 
count: [0..127], 
body: SELECT tag:* FROM 
normal a > NULL, 
change => [ 

da: DiskDefs. DA, 
base: CARDINAL], 
ENDCASE]; 

VersionID: CARDINAL ■ 03168; -- must match in Mesa.bcpl 

ImagePref ix: 

TYPE ■ MACHINE DEPENDENT RECORD [ 
versionident: CARDINAL, 
version, creator: BcdDefs .VersionStamp, 
options: WORD, 
leaderDA: Al toFileDef s .vDA, 
state: ControlDefs .StateVector , 
loadStateBase, initialLoadStateBase: CARDINAL, 
type: ImageType, 
fill: [0..37B], 
loadS t ate Pages: AltoDef s .PageCount]; 

ImageType: TYPE ■ {bootmesa, makeimage, checkfile, other}; 

ImageHeader: TYPE - MACHINE DEPENDENT RECORD [ 
prefix: ImagePrefix, 
map: ARRAY [0..0) OF Mapltem]; 

MapSpace: CARDINAL ■ AUoDefs. PageSize-SIZE[ImagePref1x]-l; 

FileRequest: PUBLIC TYPE ■ MACHINE DEPENDENT RECORD[ 
link: POINTER TO FileRequest, 
file: SegmentDefs . FileHandle, 
access: SegmentDefs . AccessOptions , 
body: SELECT tag:* FROM 

short -> [fill: [0..7777B], name: STRING], 

long «> [fill: [0..7777B], name: StringDefs .SubStringDescriptor] , 

ENDCASE]; 

AddFileRequest: PUBLIC PROCEDURE [POINTER TO FileRequest] - 
MACHINE CODE BEGIN Mopcodes . zKFCB , SDDefs .sAddFileRequest END; 

Makeimage: PUBLIC PROCEDURE [name: STRING]; 
MakeUnMergedlmage: PUBLIC PROCEDURE [name: STRING]; 
SwapOutDuringMakelmage: PUBLIC SIGNAL; 
SwapTrapDuringMakelmage: PUBLIC SIGNAL; 
SwapErrorDuringMakelmage: PUBLIC SIGNAL; 
NoRoomlnlmageMap: PUBLIC SIGNAL; 
InvalidlmageName: PUBLIC SIGNAL; 

MakeCheckPoint: PUBLIC PROCEDURE [name: STRING]; 
SwapOutDuringMakeCheck: PUBLIC SIGNAL; 
SwapTrapDuringMakeCheck: PUBLIC SIGNAL; 
SwapErrorDuringMakeCheck: PUBLIC SIGNAL; 
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NoRoomlnCheckMap: PUBLIC SIGNAL; 

Runlmage: PUBLIC PROCEDURE [file: SegmentDefs . FileSegmentHandle] ; 
Invalidlmage: PUBLIC SIGNAL; 
NoRoomForLoader: PUBLIC SIGNAL; 

ImageVersion: PUBLIC PROCEDURE RETURNS [BcdDef s.VersionStamp]; 

Cleanupltem: PUBLIC TYPE ■ RECORD [ 
link: POINTER TO Cleanupltem, 
mask: CARDINAL, 
proc: CleanupProcedure]; 

CleanupProcedure: PUBLIC TYPE - PROCEDURE [why: CleanupReason]; 

CleanupMask: PUBLIC ARRAY CleanupReason OF CARDINAL - 

[1, 2, 4, 10B, 20B, 40B, 100B, 200B, 400B]; 
AllReasons: PUBLIC CARDINAL - 177777B; 
CleanupReason: PUBLIC TYPE ■ NovaOps .CleanupReason; 
NovaOpcode: TYPE ■ NovaOps. NovaOpcode; 

AddCleanupProcedure, RemoveCleanupProcedure: PUBLIC PROCEDURE [POINTER TO Cleanupltem]; 
UserCleanupProc: PUBLIC CleanupProcedure; 

StopMesa: PUBLIC PROCEDURE - 

MACHINE CODE BEGIN Mopcodes . zLIO+LOOPHOLE[NovaOpcode[Finish] , CARDINAL]; Mopcodes . zSTOP END; 
AbortMesa: PUBLIC PROCEDURE ■ 

MACHINE CODE BEGIN Mopcodes . zLIO+LOOPHOLE[NovaOpcode[Abort] , CARDINAL]; Mopcodes . zSTOP END; 
PuntMesa: PUBLIC PROCEDURE - 

MACHINE CODE BEGIN Mopcodes . zLIO+LOOPHOLE[NovaOpcode[Punt] , CARDINAL]; Mopcodes. zSTOP END; 

END.. 



